home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / SAMPLES.ZIP / MENUS.PRG < prev    next >
Text File  |  1994-10-12  |  2KB  |  83 lines
  1.  
  2. ******************************************************************************
  3. * NOMBRE DEL PROGRAMA:          MENUS.PRG
  4. *                               PROGRAMA DE EJEMPLO QUE DEMUESTRA COMO CREAR
  5. *                               UN MENU DE LINEAS Y CUATRO MENUS DE VENTANA
  6. *                               REFERENCIA DEL LENGUAJE dBASE
  7. * ULTIMO CAMBIO:                03/03/93 04:00 PM
  8. * ESCRITO POR:                  BORLAND
  9. ******************************************************************************
  10.  
  11. SET TALK OFF
  12. CLEAR
  13. MEdit = .F.
  14. DO Def_mens
  15. ON PAD View  OF Main ACTIVATE POPUP View_pop
  16. ON PAD Goto  OF Main ACTIVATE POPUP Goto_pop
  17. ON PAD Print OF Main ACTIVATE POPUP Prin_pop
  18. ON SELECTION PAD Exit OF Main ACTIVATE POPUP Exit_pop
  19. ON SELECTION POPUP Exit_pop DO Exit_pro
  20. ON SELECTION POPUP View_pop DO View_pro
  21. ACTIVATE MENU Main PAD View
  22. CLEAR ALL
  23. SET TALK ON
  24. RETURN
  25.  
  26.  
  27. PROCEDURE Def_mens
  28. *-- Menú principal
  29. DEFINE MENU Main
  30. DEFINE PAD View OF Main PROMPT "Añadir/Editar" AT 2,2
  31. DEFINE PAD Goto OF Main PROMPT "Ir a/Buscar" AT 2,26
  32. DEFINE PAD Print OF Main PROMPT "Imprimir" AT 2,50
  33. DEFINE PAD Exit OF Main PROMPT "Salir" AT 2,68
  34.  
  35. *-- Menú de ventana View_pop
  36. DEFINE POPUP View_pop FROM 3,2 TO 8,25
  37. DEFINE BAR 1 OF View_pop PROMPT "Añadir nuevo registro"
  38. DEFINE BAR 2 OF View_pop PROMPT "Editar"
  39. DEFINE BAR 3 OF View_pop PROMPT REPLICATE( CHR(196), 22 ) SKIP
  40. DEFINE BAR 4 OF View_pop PROMPT "Borrar" SKIP FOR Medit
  41.  
  42. *-- Menú de ventana Goto_pop
  43. DEFINE POPUP Goto_pop FROM 3,26 TO 6,40
  44. DEFINE BAR 1 OF Goto_pop PROMPT "Saltar"
  45. DEFINE BAR 2 OF Goto_pop PROMPT "Ir a"
  46.  
  47. *-- Menú de ventana Prin_pop
  48. DEFINE POPUP Prin_pop FROM 3,50 TO 7,64
  49. DEFINE BAR 1 OF Prin_pop PROMPT "Destino"
  50. DEFINE BAR 2 OF Prin_pop PROMPT "Opciones"
  51. DEFINE BAR 3 OF Prin_pop PROMPT "Salto página"
  52.  
  53. *-- Menú de ventana Exit_pop
  54. DEFINE POPUP Exit_pop FROM 3,60 TO 6,77
  55. DEFINE BAR 1 OF Exit_pop PROMPT "Salir al DOS"
  56. DEFINE BAR 2 OF Exit_pop PROMPT "Volver al punto"
  57. RETURN
  58.  
  59. PROCEDURE Exit_pro
  60. DO CASE
  61.   CASE BAR() = 1
  62.     QUIT
  63.   CASE BAR() = 2
  64.     DEACTIVATE MENU
  65. ENDCASE
  66. RETURN
  67.  
  68. PROCEDURE View_pro
  69. DO CASE
  70.   CASE BAR() = 1
  71.     APPEND BLANK
  72.     EDIT NEXT 1
  73.   CASE BAR() = 2
  74.     EDIT NEXT 1
  75.     MEdit = .NOT. Medit
  76.   CASE BAR() = 4
  77.     DELETE
  78. ENDCASE
  79. RETURN
  80.  
  81. *-- EOP: Menus.prg
  82.  
  83.